0 V$="CONVERT V2.1,P":::::GOTO7
1 H=INT(A/256):L=A-H*256:PRINT#15,"M-R"CHR$(L)CHR$(H):GET#15,A$:A=ASC(A$+CHR$(.)):RETURN
2 PRINT#15,"U1:"2;0;T;S:RETURN
3 PRINT#15,"U2:"2;0;T;S:RETURN
4 PRINT#15,"B-P:"2;PS:RETURN
5 GET#2,A$:A$=LEFT$(A$+CHR$(.),1):AA=ASC(A$):RETURN
6 PRINT#2,CHR$(A);:RETURN
7 DIMD$(29):POKE808,234:PRINT"[147]WAIT":GOSUB13
8 T=ASC(D$(1)):S=ASC(D$(2)):FORI=1TO3:GOSUB2:GOSUB5:T=AA:GOSUB5:S=AA:NEXT
9 GOSUB2:GOSUB5:P1=AA:GOSUB5:P2=AA:GOSUB2:A=.:GOSUB6:A=255:GOSUB6:GOSUB3
10 D$(.)=CHR$(131):D$(1)=CHR$(P1):D$(2)=CHR$(P2)
11 D$(19)=CHR$(T):D$(20)=CHR$(S):D$(21)=CHR$(.):D$(22)=CHR$(6)
12 D$(23)=CHR$(87):D$(28)=CHR$(ASC(D$(28))-3):FORI=24TO26:D$(I)="
":NEXT:GOTO18
13 OPEN15,8,15,"I0:":OPEN2,8,2,"#":OPEN3,8,3,V$:CLOSE3
14 INPUT#15,P$,Q$:IFP$>"19"THEN20
15 A=656:GOSUB1:DS=A:A=660:GOSUB1:DO=A:T=18:S=DS
16 GOSUB2:PS=DO:GOSUB4:FORI=.TO29:GOSUB5:D$(I)=A$:NEXT:RETURN
18 T=18:S=DS:GOSUB2:PS=DO:GOSUB4:FORI=.TO29:PRINT#2,LEFT$(D$(I),1);:NEXT
19 GOSUB3:Q$="DONE
20 [153]Q$:[160]2:[160]15:[151]808,237